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UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 



LIBRARY ROUTINE P 17 - 2^2 



By Ross H. Flenner 

Maximum Speed Fraction Print To Twelve Or Fewer Places 

Closed with one program parameter 

59 

0, 1, 2 

1 to 12 digit rounded fractions 
Punching time 

Effect 



Entry 




50- n 


<1 


50 q. 




26 - 



N(A) is printed as a sign and n place 
fraction. 



5>k lOOp+n N(A) is printed as a sign and n place 
50 q fraction with a decimal point after p 
digits. Leading zeros preceding the 
decimal point and the first non-zero 
digit are replaced "by spaces. 



26 - 



JO and J^ instead of 50 and 5k cause a space to he printed 
instead of a + sign for positive numbers. 

If the subroutine is entered at the right hand order at 1 
instead of at left, a delay is punched instead of a plus 
sign. 

To replace the decimal point with a space change the order 
pair at 38L to 

92 963F 
LI kOL 



- 2 - 

REMARKS This subroutine was -written to print fractions with the 

same parameters and the same accuracy as P-l6 while doing 
it in the minimum time. The saving in time is significant 
especially when printing large numbers of comparatively 
short fractions . 

Round off is accomplished with the aid of a table of 
values of l/2 »5~ n , 1 < n < 12 . 

The propagation of decimal digits is accomplished by a 
double precision multiplication by 10- Exactly n decimal 
digits will be formed. All n digits, including zeros , 
are printed when no decimal point is desired. Leading 
zeros preceding a decimal point are suppressed* All 
digits remaining of the n are printed following the 
decimal point. 

The number -1, is printed as minus, space, zero, zero, 
etc * , thus : 
-( )0000 

The number zero is printed as a sign and n zeros with a 
50 parameter. With a 5k parameter it is printed as a 
sign, p spaces , decimal point, n-p zeros. If p = n, 
only the point is printed. 



DAT E April 22, 1958 

PROGRAMMED B Y/jf 3iL~v^ 
APPROVED B ^/)^ t fH AA j£z,^ 



LOCATION 


ORDER 
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1 





^0 F 
L5 3L 




Normal entry- 
Space code 




1 


22 2L 
kO F 








2 


L5 6l 
46 31L 




Delay code 

Plant space or delay 




3 


K5 963F 
40 2F 




Q + 1 

Save parameter 




k 


k2 33L 
00 7F 




Link 




5 


11 26F 
66 kOL 




A = 2n-2~ 59 , Q = (2p+l)-2" 59 




6 


10 513F 
4o 5TL 




A = n, Q = p 
Save N 




7 


42 15L 
IA 24l 




Table -1 +n 




8 


42 l^L 
SI F 








9 


ho 56L 
Ll 5TL 




-P 




10 


4o 5TL 
L5 F 




-N 

Test sign of number 




11 


32 12L 
L5 17L 




Pos. 

- Sgn« print code 




12 


26 l4L 
Ll 2F 




Leave space or delay ? 




13 


32 l^L 
L5 22L 








Ik 


46 31L 
L5 F 




Store sign code 
N + table - 1 




15 


JO 42L 
10 F 




Clear Q 
Shift N 




16 


L6 f 
kO F 




m.s . 





p 17 



LOCATION 


ORDER 


NOTES 


PAGE 2 


17 


S5 706F 
ll-O IF 




L.S. 




18 


LI 2F 
00 5F 








19 


32 20L 
LI 40L 




Need A pt. ? 
No 




20 


4o 56L 
50 IF 




L.S. 




21 


75 ^3L 

4o 58L 




M.S. of L.S. 




22 


S5 6hZF 

kO IF 




Pos . sign code 
L.S. of L.S. 




23 


50 F 
50 F 




M.S. 




2k 


L5 58L 
7^ ^3L 








25 


ko 58L 

S5 F 




This digit 


. 


26 


ho F 
L5 56L 




L.S. of M.S. 
x Print pt now ? 




27 


36 30L 
L5 2F 








28 


00 5F 
36 30L 




Print all zeros ? 
Yes 




29 


L3 58L 
36 32L 




This digit ? 
Yes 




30 


L3 2F 
36 32L 




First digit ? 
No 




31 


92 F 
kl 2F 




Print sign 

Now print all 0*s 




32 


L5 56L 
36 38L 




Print PT ? 
Yes 




33 


L5 57L 
32 F 




Done? 
Yes 





LOCATION 



34 

35 
36 

37 
38 
39 

41 

42 

43 
44 

45 

46 

^7 
48 

49 



ORDER 



NOTES 



L3 2F 
L4 58L 
32 40L 
92 963F 
E5 57L 
40 57L 
F5 56L 
26 20L 
92 643F 
LI 40L 

4o 56L 
26 33L 
00 F 
00 100F 

82 4f 
26 36L 

00 F 

00 IF 

00 F 

00 10F 

00 F 

00 1000 0000 OOOOJ 

00 F I 

00 200 0000 OOOOJ 

00 F 

00 40 0000 OOOOJ 

00 F 

00 8 0000 OOOOJ 

00 F 

00 16000 OOOOJ 

00 F 

00 3200 OOOOJ 
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P 17 



Print digit ? 

Yes 

Print space 

-N+l 
-P+l 

Print PT 

No more PT.S 

P = 100 



Shift 36 



Ta"ble of 1/2-5 , n = 1-12 



LOCATION 


ORDER 


NOTES PAGE k 


50 


00 F 

00 6*1-0 OOOOJ 






51 


00 F 

00 128 OOOOJ 






52 


00 F 

oo 256 OOOJ 






53 


00 F 

00 512 OOJ 






5^ 


00 F 

00 102 ^OJ 






55 


00 F 

00 20^8j 






56 


00 F 
00 F 






57 


00 F 
00 F 




, 58 


00 F I 


. 




00 F 







p 17 



